home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / termsorc.lha / Extras / Source / term-source.lha / LibPanelPlus.c < prev    next >
C/C++ Source or Header  |  1995-09-28  |  14KB  |  647 lines
  1. /*
  2. **    LibPanelPlus.c
  3. **
  4. **    Editing panel for transfer library configuration
  5. **
  6. **    Copyright © 1990-1995 by Olaf `Olsen' Barthel
  7. **        All Rights Reserved
  8. */
  9.  
  10. #include "termGlobal.h"
  11.  
  12. enum    {    GAD_COMMAND=1000,
  13.         GAD_BUTTON1,GAD_BUTTON2,GAD_BUTTON3,GAD_BUTTON4,GAD_BUTTON5,
  14.         GAD_BUTTON6,GAD_BUTTON7,GAD_BUTTON8,GAD_BUTTON9,GAD_BUTTON10,
  15.         GAD_PAGER,GAD_PAGEGROUP,
  16.  
  17.         GAD_USE,GAD_CANCEL
  18.     };
  19.  
  20. STATIC STRPTR __saveds
  21. ShowTime(struct Gadget *SomeGadget,WORD Level)
  22. {
  23.     return(LocaleSeconds(Level));
  24. }
  25.  
  26. VOID __regargs
  27. ASCIITransferPanel(struct Window *Window,struct Configuration *Config)
  28. {
  29.     STATIC LONG PageTitleID[4] =
  30.     {
  31.         MSG_INTERNAL_ASCII_TRANSFER_SEND_TXT,
  32.         MSG_INTERNAL_ASCII_TRANSFER_RECEIVE_TXT,
  33.         MSG_INTERNAL_ASCII_TRANSFER_GENERAL_TXT,
  34.         -1
  35.     };
  36.  
  37.     STATIC BYTE InitialPage = 0;
  38.  
  39.     struct TransferSettings     OldSettings;
  40.     struct LayoutHandle    *Handle;
  41.     STRPTR             PageTitle[4];
  42.  
  43.     LocalizeStringTable(PageTitle,PageTitleID);
  44.  
  45.     CopyMem(Config -> TransferConfig,&OldSettings,sizeof(struct TransferSettings));
  46.  
  47.     if(Handle = LT_CreateHandleTags(Window -> WScreen,
  48.         LH_LocaleHook,    &LocaleHook,
  49.     TAG_DONE))
  50.     {
  51.         struct Window *PanelWindow;
  52.  
  53.         LT_New(Handle,
  54.             LA_Type,    VERTICAL_KIND,
  55.         TAG_DONE);
  56.         {
  57.             LT_New(Handle,
  58.                 LA_Type,    VERTICAL_KIND,
  59.             TAG_DONE);
  60.             {
  61.                 LT_New(Handle,
  62. //                    LA_Type,        CYCLE_KIND,
  63.                     LA_Type,        TAB_KIND,
  64.                     LA_LabelID,        MSG_XFER_PAGE_TXT,
  65.                     LA_ID,            GAD_PAGER,
  66.                     GTCY_Labels,        PageTitle,
  67.                     LACY_AutoPageID,    GAD_PAGEGROUP,
  68.                     LACY_TabKey,        TRUE,
  69.                     LA_BYTE,        &InitialPage,
  70.                     LATB_FullWidth,        TRUE,
  71.                 TAG_DONE);
  72.  
  73.                 LT_EndGroup(Handle);
  74.             }
  75.  
  76.             LT_New(Handle,
  77.                 LA_Type,    VERTICAL_KIND,
  78.                 LA_ID,        GAD_PAGEGROUP,
  79. //                LAGR_Frame,    TRUE,
  80.                 LAGR_ActivePage,InitialPage,
  81.             TAG_DONE);
  82.             {
  83.                 LT_New(Handle,
  84.                     LA_Type,    VERTICAL_KIND,
  85.                 TAG_DONE);
  86.                 {
  87.                     LT_New(Handle,
  88.                         LA_Type,    VERTICAL_KIND,
  89.                     TAG_DONE);
  90.                     {
  91.                         LT_New(Handle,
  92.                             LA_Type,    CYCLE_KIND,
  93.                             LA_LabelID,    MSG_CLIPPANEL_TEXT_PACING_GAD,
  94.                             LA_UBYTE,    &Config -> TransferConfig -> PacingMode,
  95.                             LACY_FirstLabel,MSG_CLIPPANEL_DIRECT_TXT,
  96.                             LACY_LastLabel,    MSG_CLIPPANEL_KEYDELAY_TXT,
  97.                         TAG_DONE);
  98.  
  99.                         LT_EndGroup(Handle);
  100.                     }
  101.  
  102.                     LT_New(Handle,
  103.                         LA_Type,    VERTICAL_KIND,
  104.                         LA_LabelID,    MSG_V36_0021,
  105.                     TAG_DONE);
  106.                     {
  107.                         LT_New(Handle,
  108.                             LA_Type,        SliderType,
  109.                             LA_LabelID,        MSG_CLIPPANEL_CHAR_DELAY_GAD,
  110.                             GTSL_Min,        0,
  111.                             GTSL_Max,        10 * 100,
  112.                             LA_Chars,        10,
  113.                             LA_WORD,        &Config -> TransferConfig -> CharDelay,
  114.                             GTSL_LevelFormat,    "%s s",
  115.                             GTSL_DispFunc,        ShowTime,
  116.                         TAG_DONE);
  117.  
  118.                         LT_New(Handle,
  119.                             LA_Type,        SliderType,
  120.                             LA_LabelID,        MSG_CLIPPANEL_LINE_DELAY_GAD,
  121.                             GTSL_Min,        0,
  122.                             GTSL_Max,        10 * 100,
  123.                             LA_Chars,        10,
  124.                             LA_WORD,        &Config -> TransferConfig -> LineDelay,
  125.                             GTSL_LevelFormat,    "%s s",
  126.                             GTSL_DispFunc,        ShowTime,
  127.                         TAG_DONE);
  128.  
  129.                         LT_EndGroup(Handle);
  130.                     }
  131.  
  132.                     LT_New(Handle,
  133.                         LA_Type,    VERTICAL_KIND,
  134.                         LA_LabelID,    MSG_V36_0024,
  135.                     TAG_DONE);
  136.                     {
  137.                         LT_New(Handle,
  138.                             LA_Type,        STRING_KIND,
  139.                             LA_LabelID,        MSG_CLIPPANEL_LINE_PROMPT_GAD,
  140.                             LA_STRPTR,        Config -> TransferConfig -> LinePrompt,
  141.                             LA_Chars,        10,
  142.                             GTST_MaxChars,        255,
  143.                         TAG_DONE);
  144.  
  145.                         LT_New(Handle,
  146.                             LA_Type,        SliderType,
  147.                             LA_LabelID,        MSG_CLIPPANEL_SEND_TIMEOUT_GAD,
  148.                             GTSL_Min,        0,
  149.                             GTSL_Max,        10 * 100,
  150.                             LA_WORD,        &Config -> TransferConfig -> SendTimeout,
  151.                             GTSL_LevelFormat,    "%s s",
  152.                             GTSL_DispFunc,        ShowTime,
  153.                         TAG_DONE);
  154.  
  155.                         LT_EndGroup(Handle);
  156.                     }
  157.  
  158.  
  159.                     LT_New(Handle,
  160.                         LA_Type,    VERTICAL_KIND,
  161.                     TAG_DONE);
  162.                     {
  163.                         LT_New(Handle,
  164.                             LA_Type,    CYCLE_KIND,
  165.                             LA_LabelID,    MSG_TERMINALPANEL_SEND_CR_GAD,
  166.                             LA_BYTE,    &Config -> TransferConfig -> SendCR,
  167.                             GTCY_Labels,    EOL_Labels,
  168.                         TAG_DONE);
  169.  
  170.                         LT_New(Handle,
  171.                             LA_Type,    CYCLE_KIND,
  172.                             LA_LabelID,    MSG_TERMINALPANEL_SEND_LF_GAD,
  173.                             LA_BYTE,    &Config -> TransferConfig -> SendLF,
  174.                             GTCY_Labels,    EOL_Labels,
  175.                         TAG_DONE);
  176.  
  177.                         LT_EndGroup(Handle);
  178.                     }
  179.  
  180.                     LT_EndGroup(Handle);
  181.                 }
  182.  
  183.                 LT_New(Handle,
  184.                     LA_Type,    VERTICAL_KIND,
  185.                 TAG_DONE);
  186.                 {
  187.                     LT_New(Handle,
  188.                         LA_Type,    CYCLE_KIND,
  189.                         LA_LabelID,    MSG_TERMINALPANEL_RECEIVE_CR_GAD,
  190.                         LA_BYTE,    &Config -> TransferConfig -> ReceiveCR,
  191.                         GTCY_Labels,    EOL_Labels,
  192.                     TAG_DONE);
  193.  
  194.                     LT_New(Handle,
  195.                         LA_Type,    CYCLE_KIND,
  196.                         LA_LabelID,    MSG_TERMINALPANEL_RECEIVE_LF_GAD,
  197.                         LA_BYTE,    &Config -> TransferConfig -> ReceiveLF,
  198.                         GTCY_Labels,    EOL_Labels,
  199.                     TAG_DONE);
  200.  
  201.                     LT_New(Handle,
  202.                         LA_Type,    CHECKBOX_KIND,
  203.                         LA_LabelID,    MSG_INTERNAL_ASCII_TRANSFER_IGNORE_DATA_PAST_ARNOLD_TXT,
  204.                         LA_BYTE,    &Config -> TransferConfig -> IgnoreDataPastArnold,
  205.                     TAG_DONE);
  206.  
  207.                     LT_New(Handle,
  208.                         LA_Type,    INTEGER_KIND,
  209.                         LA_LabelID,    MSG_INTERNAL_ASCII_TRANSFER_TERMINATOR_CHAR_TXT,
  210.                         LA_BYTE,    &Config -> TransferConfig -> TerminatorChar,
  211.                         LAIN_Min,    0,
  212.                         LAIN_Max,    255,
  213.                     TAG_DONE);
  214.  
  215.                     LT_EndGroup(Handle);
  216.                 }
  217.  
  218.                 LT_New(Handle,
  219.                     LA_Type,    VERTICAL_KIND,
  220.                 TAG_DONE);
  221.                 {
  222.                     LT_New(Handle,
  223.                         LA_Type,    CHECKBOX_KIND,
  224.                         LA_LabelID,    MSG_LIBPANEL_QUIET_TRANSFER_GAD,
  225.                         LA_BYTE,    &Config -> TransferConfig -> QuietTransfer,
  226.                     TAG_DONE);
  227.  
  228.                     LT_New(Handle,
  229.                         LA_Type,    CHECKBOX_KIND,
  230.                         LA_LabelID,    MSG_INTERNAL_ASCII_TRANSFER_STRIP_BIT_7_TXT,
  231.                         LA_BYTE,    &Config -> TransferConfig -> StripBit8,
  232.                     TAG_DONE);
  233.  
  234.                     LT_EndGroup(Handle);
  235.                 }
  236.  
  237.                 LT_EndGroup(Handle);
  238.             }
  239.  
  240.             LT_New(Handle,
  241.                 LA_Type,VERTICAL_KIND,
  242.             TAG_DONE);
  243.             {
  244.                 LT_New(Handle,
  245.                     LA_Type,    XBAR_KIND,
  246.                     LAXB_FullSize,    TRUE,
  247.                 TAG_DONE);
  248.  
  249.                 LT_EndGroup(Handle);
  250.             }
  251.  
  252.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  253.                 LAGR_SameSize,    TRUE,
  254.                 LAGR_Spread,    TRUE,
  255.             TAG_DONE);
  256.             {
  257.                 LT_New(Handle,
  258.                     LA_Type,    BUTTON_KIND,
  259.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  260.                     LA_ID,        GAD_USE,
  261.                     LABT_ReturnKey,    TRUE,
  262.                     LABT_ExtraFat,    TRUE,
  263.                 TAG_DONE);
  264.  
  265.                 LT_New(Handle,
  266.                     LA_Type,    BUTTON_KIND,
  267.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  268.                     LA_ID,        GAD_CANCEL,
  269.                     LABT_EscKey,    TRUE,
  270.                     LABT_ExtraFat,    TRUE,
  271.                 TAG_DONE);
  272.  
  273.                 LT_EndGroup(Handle);
  274.             }
  275.  
  276.             LT_EndGroup(Handle);
  277.         }
  278.  
  279.         if(PanelWindow = LT_Build(Handle,
  280.             LAWN_TitleID,        MSG_INTERNAL_ASCII_TRANSFER_TRANSFER_TXT,
  281.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  282.             LAWN_HelpHook,        &GuideHook,
  283.             LAWN_Parent,        Window,
  284.             WA_DepthGadget,        TRUE,
  285.             WA_CloseGadget,        TRUE,
  286.             WA_DragBar,        TRUE,
  287.             WA_RMBTrap,        TRUE,
  288.             WA_Activate,        TRUE,
  289.             WA_SimpleRefresh,    TRUE,
  290.         TAG_DONE))
  291.         {
  292.             struct IntuiMessage    *Message;
  293.             BOOLEAN             Done = FALSE;
  294.             ULONG             MsgClass;
  295.             struct Gadget        *MsgGadget;
  296.  
  297.             GuideContext(CONTEXT_ASCII_TRANSFER_SETTINGS);
  298.  
  299.             PushWindow(PanelWindow);
  300.  
  301.             LT_ShowWindow(Handle,TRUE);
  302.  
  303.             do
  304.             {
  305.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  306.                 {
  307.                     CopyMem(&OldSettings,Config -> TransferConfig,sizeof(struct TransferSettings));
  308.  
  309.                     break;
  310.                 }
  311.  
  312.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  313.                 {
  314.                     MsgClass    = Message -> Class;
  315.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  316.  
  317.                     LT_ReplyIMsg(Message);
  318.  
  319.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  320.                     {
  321.                         CopyMem(&OldSettings,Config -> TransferConfig,sizeof(struct TransferSettings));
  322.  
  323.                         Done = TRUE;
  324.                     }
  325.  
  326.                     if(MsgClass == IDCMP_GADGETUP)
  327.                     {
  328.                         switch(MsgGadget -> GadgetID)
  329.                         {
  330.                             case GAD_USE:
  331.  
  332.                                 LT_UpdateStrings(Handle);
  333.  
  334.                                 Done = TRUE;
  335.                                 break;
  336.  
  337.                             case GAD_CANCEL:
  338.  
  339.                                 CopyMem(&OldSettings,Config -> TransferConfig,sizeof(struct TransferSettings));
  340.  
  341.                                 Done = TRUE;
  342.                                 break;
  343.                         }
  344.                     }
  345.                 }
  346.             }
  347.             while(!Done);
  348.  
  349.             PopWindow();
  350.         }
  351.  
  352.         LT_DeleteHandle(Handle);
  353.     }
  354. }
  355.  
  356. BOOLEAN __regargs
  357. ExternalCommandPanel(struct Window *Parent,STRPTR Command)
  358. {
  359.     LayoutHandle    *Handle;
  360.     BOOLEAN         Result = FALSE;
  361.  
  362.     if(Handle = LT_CreateHandleTags(Parent -> WScreen,
  363.         LH_LocaleHook,    &LocaleHook,
  364.     TAG_DONE))
  365.     {
  366.         STATIC LONG ButtonLabels[] =
  367.         {
  368.             MSG_XFER_BUTTON1_TXT,MSG_XFER_BUTTON2_TXT,
  369.             MSG_XFER_BUTTON3_TXT,MSG_XFER_BUTTON4_TXT,
  370.             MSG_XFER_BUTTON5_TXT,MSG_XFER_BUTTON6_TXT,
  371.             MSG_XFER_BUTTON7_TXT,MSG_XFER_BUTTON8_TXT,
  372.             MSG_XFER_BUTTON9_TXT,MSG_XFER_BUTTON10_TXT,
  373.         };
  374.  
  375.         struct Window    *PanelWindow;
  376.         UBYTE         LocalCommand[MAX_FILENAME_LENGTH];
  377.         WORD         i,Len,Max;
  378.  
  379.         strcpy(LocalCommand,Command);
  380.  
  381.         for(i = Max = 0 ; i < 10 ; i++)
  382.         {
  383.             if((Len = LT_LabelChars(Handle,LocaleString(ButtonLabels[i]))) > Max)
  384.                 Max = Len;
  385.         }
  386.  
  387.         LT_New(Handle,
  388.             LA_Type,    VERTICAL_KIND,
  389.         TAG_DONE);
  390.         {
  391.             LT_New(Handle,
  392.                 LA_Type,    VERTICAL_KIND,
  393.             TAG_DONE);
  394.             {
  395.                 LT_New(Handle,
  396.                     LA_Type,    STRING_KIND,
  397.                     LA_ID,        GAD_COMMAND,
  398.                     LA_LabelID,    MSG_XFER_COMMAND_TXT,
  399.                     LA_Chars,    50,
  400.                     LA_STRPTR,    LocalCommand,
  401.                     GTST_MaxChars,    MAX_FILENAME_LENGTH,
  402.                     LAST_Picker,    TRUE,
  403.                 TAG_DONE);
  404.  
  405.                 LT_New(Handle,
  406.                     LA_Type,    XBAR_KIND,
  407.                 TAG_DONE);
  408.  
  409.                 LT_EndGroup(Handle);
  410.             }
  411.  
  412.             LT_New(Handle,
  413.                 LA_Type,    VERTICAL_KIND,
  414.             TAG_DONE);
  415.             {
  416.                 LT_New(Handle,
  417.                     LA_Type,    HORIZONTAL_KIND,
  418.                     LAGR_SameSize,    TRUE,
  419.                 TAG_DONE);
  420.                 {
  421.                     for(i = 0 ; i < 5 ; i++)
  422.                     {
  423.                         LT_New(Handle,
  424.                             LA_Type,    BUTTON_KIND,
  425.                             LA_Chars,    Max,
  426.                             LA_ID,        GAD_BUTTON1 + i,
  427.                             LA_LabelID,    ButtonLabels[i],
  428.                         TAG_DONE);
  429.                     }
  430.  
  431.                     LT_EndGroup(Handle);
  432.                 }
  433.  
  434.                 LT_New(Handle,
  435.                     LA_Type,    HORIZONTAL_KIND,
  436.                     LAGR_SameSize,    TRUE,
  437.                 TAG_DONE);
  438.                 {
  439.                     for(i = 5 ; i < 10 ; i++)
  440.                     {
  441.                         LT_New(Handle,
  442.                             LA_Type,    BUTTON_KIND,
  443.                             LA_Chars,    Max,
  444.                             LA_ID,        GAD_BUTTON1 + i,
  445.                             LA_LabelID,    ButtonLabels[i],
  446.                         TAG_DONE);
  447.                     }
  448.  
  449.                     LT_EndGroup(Handle);
  450.                 }
  451.  
  452.                 LT_EndGroup(Handle);
  453.             }
  454.  
  455.             LT_New(Handle,
  456.                 LA_Type,VERTICAL_KIND,
  457.             TAG_DONE);
  458.             {
  459.                 LT_New(Handle,
  460.                     LA_Type,    XBAR_KIND,
  461.                     LAXB_FullSize,    TRUE,
  462.                 TAG_DONE);
  463.  
  464.                 LT_EndGroup(Handle);
  465.             }
  466.  
  467.             LT_New(Handle,LA_Type,HORIZONTAL_KIND,
  468.                 LAGR_SameSize,    TRUE,
  469.                 LAGR_Spread,    TRUE,
  470.             TAG_DONE);
  471.             {
  472.                 LT_New(Handle,
  473.                     LA_Type,    BUTTON_KIND,
  474.                     LA_LabelID,    MSG_GLOBAL_USE_GAD,
  475.                     LA_ID,        GAD_USE,
  476.                     LABT_ReturnKey,    TRUE,
  477.                     LABT_ExtraFat,    TRUE,
  478.                 TAG_DONE);
  479.  
  480.                 LT_New(Handle,
  481.                     LA_Type,    BUTTON_KIND,
  482.                     LA_LabelID,    MSG_GLOBAL_CANCEL_GAD,
  483.                     LA_ID,        GAD_CANCEL,
  484.                     LABT_EscKey,    TRUE,
  485.                     LABT_ExtraFat,    TRUE,
  486.                 TAG_DONE);
  487.  
  488.                 LT_EndGroup(Handle);
  489.             }
  490.  
  491.             LT_EndGroup(Handle);
  492.         }
  493.  
  494.         if(PanelWindow = LT_Build(Handle,
  495.             LAWN_TitleID,        MSG_EXTERNAL_PROGRAM_TXT,
  496.             LAWN_IDCMP,        IDCMP_CLOSEWINDOW,
  497.             LAWN_HelpHook,        &GuideHook,
  498.             LAWN_Parent,        Parent,
  499.             WA_DepthGadget,        TRUE,
  500.             WA_CloseGadget,        TRUE,
  501.             WA_DragBar,        TRUE,
  502.             WA_RMBTrap,        TRUE,
  503.             WA_Activate,        TRUE,
  504.             WA_SimpleRefresh,    TRUE,
  505.         TAG_DONE))
  506.         {
  507.             STATIC STRPTR __far Strings[] =
  508.             {
  509.                 " %f",
  510.                 " %m",
  511.                 " %p",
  512.                 " %d",
  513.                 " %u",
  514.                 " %<",
  515.                 " %>",
  516.                 " %s",
  517.                 " %b",
  518.                 " %c"
  519.             };
  520.  
  521.             struct IntuiMessage    *Message;
  522.             BOOLEAN             Done = FALSE;
  523.             ULONG             MsgClass;
  524.             struct Gadget        *MsgGadget;
  525.  
  526.             GuideContext(CONTEXT_PARAMETERS);
  527.  
  528.             PushWindow(PanelWindow);
  529.  
  530.             LT_ShowWindow(Handle,TRUE);
  531.  
  532.             do
  533.             {
  534.                 if(Wait(PORTMASK(PanelWindow -> UserPort) | SIG_BREAK) & SIG_BREAK)
  535.                     break;
  536.  
  537.                 while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
  538.                 {
  539.                     MsgClass    = Message -> Class;
  540.                     MsgGadget    = (struct Gadget *)Message -> IAddress;
  541.  
  542.                     LT_ReplyIMsg(Message);
  543.  
  544.                     if(MsgClass == IDCMP_CLOSEWINDOW)
  545.                         Done = TRUE;
  546.  
  547.                     if(MsgClass == IDCMP_GADGETUP)
  548.                     {
  549.                         switch(MsgGadget -> GadgetID)
  550.                         {
  551.                             case GAD_USE:
  552.  
  553.                                 strcpy(Command,LocalCommand);
  554.  
  555.                                 Result = Done = TRUE;
  556.                                 break;
  557.  
  558.                             case GAD_CANCEL:
  559.  
  560.                                 Done = TRUE;
  561.                                 break;
  562.  
  563.                             default:
  564.  
  565.                                 if(MsgGadget -> GadgetID >= GAD_BUTTON1 && MsgGadget -> GadgetID <= GAD_BUTTON8)
  566.                                 {
  567.                                     LT_LockWindow(PanelWindow);
  568.  
  569.                                     if(strlen(LocalCommand) + 3 < 255)
  570.                                     {
  571.                                         strcat(LocalCommand,Strings[MsgGadget -> GadgetID - GAD_BUTTON1]);
  572.  
  573.                                         LT_SetAttributes(Handle,GAD_COMMAND,
  574.                                             GTST_String,        LocalCommand,
  575.                                             LAST_CursorPosition,    -1,
  576.                                         TAG_DONE);
  577.                                     }
  578.                                     else
  579.                                         DisplayBeep(PanelWindow -> WScreen);
  580.  
  581.                                     LT_UnlockWindow(PanelWindow);
  582.                                 }
  583.  
  584.                                 break;
  585.                         }
  586.                     }
  587.  
  588.                     if(MsgClass == IDCMP_IDCMPUPDATE)
  589.                     {
  590.                         struct FileRequester    *FileRequest;
  591.                         STRPTR             Index,Name,Args;
  592.  
  593.                         strcpy(SharedBuffer,LocalCommand);
  594.  
  595.                         Index = PathPart(SharedBuffer);
  596.  
  597.                         *Index++ = 0;
  598.  
  599.                         Name = Index;
  600.  
  601.                         while(*Index && *Index != ' ')
  602.                             Index++;
  603.  
  604.                         if(*Index == ' ')
  605.                         {
  606.                             *Index = 0;
  607.  
  608.                             Args = &LocalCommand[(ULONG)Index - (ULONG)&SharedBuffer[0] + 1];
  609.                         }
  610.                         else
  611.                             Args = NULL;
  612.  
  613.                         if(FileRequest = GetFile(Window,LocaleString(MSG_XFER_SELECT_COMMAND_TXT),SharedBuffer,Name,SharedBuffer,NULL,FALSE,FALSE,FALSE,LocaleString(MSG_GLOBAL_SELECT_TXT),FALSE))
  614.                         {
  615.                             LONG Len = strlen(SharedBuffer);
  616.  
  617.                             if(Len < 253 && Args)
  618.                             {
  619.                                 strcat(SharedBuffer," ");
  620.  
  621.                                 Len++;
  622.  
  623.                                 memcpy(SharedBuffer + Len,Args,255 - Len);
  624.  
  625.                                 SharedBuffer[255] = 0;
  626.                             }
  627.  
  628.                             LT_SetAttributes(Handle,GAD_COMMAND,
  629.                                 GTST_String,SharedBuffer,
  630.                             TAG_DONE);
  631.  
  632.                             FreeAslRequest(FileRequest);
  633.                         }
  634.                     }
  635.                 }
  636.             }
  637.             while(!Done);
  638.  
  639.             PopWindow();
  640.         }
  641.  
  642.         LT_DeleteHandle(Handle);
  643.     }
  644.  
  645.     return(Result);
  646. }
  647.